APDL Eductation Resources/APDL Eductation Resources.iso/programs/graphics/turtle_2/Procedures/TILES

Text File | 1991-08-04 | 2.0 KB | 240 lines

SQU
REPEAT 4
FORWARD 20
RIGHT 90
END REPEAT
END

TRI
REPEAT 3
FORWARD 20
RIGHT 120
END REPEAT
END

HEX
REPEAT 6
FORWARD 20
RIGHT 60
END REPEAT
END

RHOM
REPEAT 2
FORWARD 20
RIGHT 60
FORWARD 20
RIGHT 120
END REPEAT
END

BSQU
REPEAT 4
FORWARD 40
RIGHT 90
END REPEAT
END

BTRI
REPEAT 3
FORWARD 40
RIGHT 120
END REPEAT
END

BHEX
REPEAT 6
FORWARD 40
RIGHT 60
END REPEAT
END

BRHOM
REPEAT 2
FORWARD 40
RIGHT 60
FORWARD 40
RIGHT 120
END REPEAT
END

F
FORWARD 20
END

R
RIGHT 15
END

L
LEFT 15
END

EG1
CLEAR
DISPLAY
PD
REPEAT 6
RHOM
FORWARD 20
LEFT 60
HEX
RIGHT 60
BACKWARDS 20
RIGHT 60
END REPEAT
DISPLAY
END

EG2
CLEAR
DISPLAY
PEN UP
BEARING 330
FORWARD 20
BEARING 0
PEN DOWN
REPEAT 6
SQU
RIGHT 90
FORWARD 20
LEFT 90
TRI
RIGHT 60
END REPEAT
DISPLAY
END

EG3
EG2
DI
HM
REPEAT 6
RHOM
FORWARD 20
LEFT 60
HEX
RIGHT 60
BACKWARDS 20
RIGHT 60
END REPEAT
DISPLAY
END


EG4
CS
DI
PU
BE 345
FD 40
PD
REPEAT 6
SQU
RIGHT 90
FORWARD 20
LEFT 90
TRI
RIGHT 60
TRI
RIGHT 60
FORWARD 20
LEFT 120
TRI
RIGHT 60
END REPEAT
DI
END

HEXONE
CO RND(7)
HEX
RT 120
FD 20
LT 60
FD 20
LT 60
EN

HEXFIVE
RP 5
HEXONE
ER
EN

MOVE
PU
RT 60
BK 140
LT 120
FD 80
RT 60
PD
EN

EG5
CS
DI
PU
FD 5
LT 60
FD 120
RT 60
PD
RP 3
HEXFIVE
HEXONE
MOVE
HEXFIVE
MOVE
ER
CO 1
DI
EN

INFO
CLEAR
DISPLAY
COLOUR 6
PEN UP
LEFT 90
FORWARD 100
RIGHT 90
FORWARD 70
WRITE TILES
BACKWARDS 15
WRITE TILES is a small set of procedures designed to get
BACKWARDS 10
WRITE you thinking about using !TURTLE to create tiling
BACKWARDS 10
WRITE patterns.
BACKWARDS 15
WRITE The tiles available are:
MORE
END


MORE
BACKWARDS 15
WRITE TRI, SQU, RHOM and HEX (each with sides of 20 units)
BACKWARDS 10
WRITE BTRI, BSQU, BRHOM and BHEX (each with sides of 40
BACKWARDS 10
WRITE units, the B stands for 'big'!)
BACKWARDS 15
MORE2
END


MORE2
WRITE To draw a square type SQU <return>.
BACKWARDS 10
WRITE To draw a big square type BSQU <return>.
BACKWARDS 15
WRITE EG1 up to EG5 are examples of tiling patterns. To
BACKWARDS 10
WRITE see the first one type EG1 <return>.
BACKWARDS 20
DISPLAY
CO 1
END